<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>13</cardCount>
<cardID>4144</cardID>
<listID>3862</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openstackgo to card Indexglobal prioruserlevelget the userLevelput it into prioruserlevelset the userLevel to 5-- create the menus-- keep the "handles" to the menus in these globalsglobal menu1put NewMenu("XrefText/M","Go To Reference","Create Reference",¬"(-","Back Up","Back To Index","(-","New XrefText Stack",¬"Toggle Picture","Import Text","Output","(-","XrefText-M Help")into menu1if menu1 is 0 then answer("Unable to make menu 'BEEP'") with "Drat"end openstackon closestackglobal prioruserlevelset the userLevel to prioruserlevelset the loc of msg to 22,300-- delete the menus we've created using--the globals saved in openStackglobal menu1put DeleteMenu(menu1) into menu1-- clearing global for safetyend closestackon doMenu which-- get our menu items from doMenu before HyperCard does...global menu1, menu2-- for CheckMenu and EnableMenu belowif which is "Go To Reference" thenput the selection into holderpush cardvisual effect wipe right to blackvisual effect wipe leftfind holder in field keywordsif the result is not empty thenanswer "No match for keyword " "e& holder"epop cardend ifelse if which is "Create Reference" thenput the selection into holdertype ">" & holder & "<"push cardfind holder in field keywordsif the result is not empty thendoMenu New Cardput holder into field keywordsset the name of this card to holderget the number of lines in card field finder of card theIndexput holder into line it+1 of card field finder of card theIndexelseput the length of holder into hlput the length of word 1 of field keywords into klif hl<>kl thenanswer "Close match but not exact!" with "Good Enough" or¬"New Card"if it contains "New" thenset lockscreen to truego prevdoMenu New Cardput holder into field keywordsset the name of this card to holderget the number of lines in card field finder of card theIndexput holder into line it+1 of card field finder of card theIndexset lockscreen to falseend ifend ifend ifelse if which is "Back Up" thenif the number of this card = 1 thenanswer "Careful. You might leave this stack." with Cancel or OKif it = "OK" thenvisual effect wipe left to blackvisual effect wipe rightgo backelseexit doMenuend ifelsevisual effect wipe left to blackvisual effect wipe rightpop cardend ifelse if which is "Back To Index" thenif the number of this card > 1 then-- visual effect wipe down to blackvisual effect iris close to whitevisual effect dissolvego to first cardelseplay boinganswer "You're already at the first card!"end ifelse if which is "XrefText-M Help" thenvisual effect dissolvego card ayudaelse if which is "Toggle Picture" thenif the number of this card > 2 thenanswer "Change to Picture or Text?" with Text or Pictureif it contains "Text" thenshow tool windowchoose select tooldoMenu Select AlldoMenu Clear Picturechoose browse toolhide tool windowhide pattern windowelseshow pattern windowshow tool windowchoose rectangle toolset filled to falsedrag from (item 1 of the rect of field keywords), (item 2 of the¬rect of field keywords) to (item 3 of the rect of field¬keywords), (item 4 of the rect of field keywords)drag from 0,28 to 512,342choose bucket toolset pattern to 1click at 250,250choose text toolset the textfont to Genevaset the textsize to 9click at 10,320type "Don't use eraser. Use white brush instead."click at 10,330type "Choosing Browse Tool will show XrefText/M menu."choose brush toolend ifelseplay boinganswer "Uh-uh. You don't want to change this card."end ifelse if which is "Import Text" thenif the number of this card &g
(CDRM1080320)(1993).iso/FILES/HYP/T-Z/XrefTextPack.cpt/XrefText_M/PATs.png){kind=link}